unit UDMCadastro2;

interface

uses
  SysUtils, Classes, IBCustomDataSet, IBUpdateSQL, DB, IBQuery;

type
  TDMCadastro2 = class(TDataModule)
    DSCliente: TDataSource;
    QueryCliente: TIBQuery;
    IBUpdateSQLCliente: TIBUpdateSQL;
    QueryEnderecoCliente: TIBQuery;
    IBUpdateSQLEndereco: TIBUpdateSQL;
    DSEndereco: TDataSource;
    QueryPedido: TIBQuery;
    IBUpdateSQLPedido: TIBUpdateSQL;
    DSPedido: TDataSource;
    QueryItemPedido: TIBQuery;
    IBUpdateSQLItemPedido: TIBUpdateSQL;
    DataSource1: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMCadastro2: TDMCadastro2;

implementation

{$R *.dfm}

procedure TDMCadastro2.DataModuleCreate(Sender: TObject);
begin
  QueryCliente.Active         := true;
  QueryEnderecoCliente.Active := true;
  QueryPedido.Active          := true;
  QueryItemPedido.Active      := true;
end;

end.
